home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
f405.zip
/
F.DEF
next >
Wrap
Text File
|
1989-01-10
|
4KB
|
140 lines
BEGIN lb,rb,bb,lm,rm,um,dm,60,10
;------------------------------BOTH BUTTONS----------------------------------
bb: EXECUTE RETURN
;------------------------------LEFT BUTTON-----------------------------------
lb: EXECUTE CURSOR
;------------------------------RIGHT BUTTON----------------------------------
rb: EXECUTE F9
;------------------------------LEFT MOTION-----------------------------------
lm: EXECUTE BKTB
;------------------------------RIGHT MOTION----------------------------------
rm: EXECUTE TB
;------------------------------UP MOTION-------------------------------------
um: EXECUTE UP
uma: EXECUTE PGUP
;------------------------------DOWN MOTION-----------------------------------
dm: EXECUTE DOWN
dma: EXECUTE PGDN
;------------------------------MENUS-----------------------------------------
CURSOR: MENU "CURSOR:",1,1,INVERSE
OPTION "PAGE UP/PAGE DOWN",PAGE
OPTION "LINE UP/LINE DOWN",LINE
OPTION "ACTIVATE LEFT WINDOW",LEFT
OPTION "ACTIVATE RIGHT WINDOW",RIGHT
OPTION "COMMANDS",WIND
OPTION "WINDOW PATH",CONTROL
MEND
CONTROL: MENU "WINDOW PATH",1,1,INVERSE
OPTION "DRIVE A: LEFT",DRIVEAL
OPTION "DRIVE A: RIGHT",DRIVEAR
OPTION "DRIVE C: LEFT", DRIVECL
OPTION "DRIVE C: RIGHT",DRIVECR
OPTION "DRIVE D: LEFT",DRIVEDL
OPTION "DRIVE D: RIGHT",DRIVEDR
MEND
WIND: popup 3,2,INVERSE
text "╔══════ COMMANDS ═══════╗"
text "║ Help left ║"
text "║ Help right ║"
text "║ Display subdir left ║"
text "║ Display subdir right ║"
text "║ Prompt for path left ║"
text "║ Prompt for path right ║"
text "║ Sort current by NAME ║"
text "║ Sort current by EXT ║"
text "║ Sort current by SIZE ║"
text "║ Sort current by DATE ║"
text "║ Create a new subdir ║"
text "║ Hide current entry ║"
text "║ Unhide entry ║"
text "║ Protect entry ║"
text "║ Unprotect entry ║"
text "╚═══════════════════════╝"
select 2,3,21,F1
select 3,3,21,F2
select 4,3,21,F3
select 5,3,21,F4
select 6,3,21,F5
select 7,3,21,F6
select 8,3,21,F7
select 9,3,21,F8
select 10,3,21,SF7
select 11,3,21,SF8
select 12,3,21,F10
select 13,3,21,SF3
select 14,3,21,SF4
select 15,3,21,SF5
select 16,3,21,SF6
pend
DRIVEAL: TYPE 0,63,"A:\",13
DRIVEAR: TYPE 0,64,"A:\",13
DRIVECL: TYPE 0,63,"C:\",13
DRIVECR: TYPE 0,64,"C:\",13
DRIVEDL: TYPE 0,63,"D:\",13
DRIVEDR: TYPE 0,64,"D:\",13
LINE: ASSIGN lb,rb,bb,lm,rm,um,dm,60,10
PAGE: ASSIGN lb,rb,bb,lm,rm,uma,dma,60,10
;------------------------------KEYS------------------------------------------
NUL: NOTHING
RETURN: TYPE 13
ESCAPE: TYPE 27
SLASH: TYPE "/"
CANCEL: TYPE 27,27,27,27,27,27,27,27
PERIOD: TYPE "."
F1: TYPE 0,59
F2: TYPE 0,60
F3: TYPE 0,61
F4: TYPE 0,62
F5: TYPE 0,63
F6: TYPE 0,64
F7: TYPE 0,65
F8: TYPE 0,66
F9: TYPE 0,67
F10: TYPE 0,68
SF1: TYPE 0,84
SF2: TYPE 0,85
SF3: TYPE 0,86
SF4: TYPE 0,87
SF5: TYPE 0,88
SF6: TYPE 0,89
SF7: TYPE 0,90
SF8: TYPE 0,91
SF9: TYPE 0,92
SF10: TYPE 0,93
HOME: TYPE 0,71
END: TYPE 0,79
ENDHOME: TYPE 0,79,0,71
BKTB: TYPE 0,15 ;BACK TAB
TB: TYPE 9
PGUP: TYPE 0,73
PGDN: TYPE 0,81
LEFT: TYPE 0,75
RIGHT: TYPE 0,77
UP: TYPE 0,72
DOWN: TYPE 0,80